(* Content-type: application/vnd.wolfram.mathematica *)

(*** Wolfram Notebook File ***)
(* http://www.wolfram.com/nb *)

(* CreatedBy='Mathematica 9.0' *)

(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[       157,          7]
NotebookDataLength[     26315,        903]
NotebookOptionsPosition[     21549,        738]
NotebookOutlinePosition[     22176,        762]
CellTagsIndexPosition[     22097,        757]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{
Cell[TextData[{
 "New in: ",
 Cell["XX", "HistoryData",
  CellTags->"New"],
 " | Modified in: ",
 Cell[" ", "HistoryData",
  CellTags->"Modified"],
 " | Obsolete in: ",
 Cell[" ", "HistoryData",
  CellTags->"Obsolete"],
 " | Excised in: ",
 Cell[" ", "HistoryData",
  CellTags->"Excised"]
}], "History",
 CellID->1247902091],

Cell[CellGroupData[{

Cell["Categorization", "CategorizationSection",
 CellID->1122911449],

Cell["Symbol", "Categorization",
 CellLabel->"Entity Type",
 CellID->686433507],

Cell["TransferMatrixFormalism Package", "Categorization",
 CellChangeTimes->{3.6000067847488737`*^9},
 CellLabel->"Paclet Name",
 CellID->27683017],

Cell["TransferMatrixFormalism`", "Categorization",
 CellLabel->"Context",
 CellID->24896869],

Cell["TransferMatrixFormalism/ref/ExternalTransferC", "Categorization",
 CellChangeTimes->{3.600006785528875*^9},
 CellLabel->"URI",
 CellID->33821954]
}, Open  ]],

Cell[CellGroupData[{

Cell["Keywords", "KeywordsSection",
 CellID->477174294],

Cell["adjacent field", "Keywords",
 CellChangeTimes->{{3.598228310278143*^9, 3.5982283137569494`*^9}, {
  3.5982285026304812`*^9, 3.5982285026304812`*^9}},
 CellID->1164421360],

Cell["transfer coefficient", "Keywords",
 CellChangeTimes->{{3.598228310278143*^9, 3.5982283137569494`*^9}, {
  3.5982285026304812`*^9, 3.598228506546088*^9}},
 CellID->532982649],

Cell["external", "Keywords",
 CellChangeTimes->{{3.598228310278143*^9, 3.5982283137569494`*^9}, {
  3.5982285026304812`*^9, 3.5982285078408904`*^9}},
 CellID->156031910],

Cell["Eq. 41", "Keywords",
 CellChangeTimes->{{3.598228310278143*^9, 3.5982283177973566`*^9}},
 CellID->3341854],

Cell["Eq. 42", "Keywords",
 CellChangeTimes->{{3.598228310278143*^9, 3.5982283208393617`*^9}},
 CellID->229678675],

Cell["Eq. 43", "Keywords",
 CellChangeTimes->{{3.598228310278143*^9, 3.5982283258937707`*^9}},
 CellID->660767820],

Cell["Eq. 44", "Keywords",
 CellChangeTimes->{{3.598228310278143*^9, 3.598228327391373*^9}},
 CellID->617360883]
}, Open  ]],

Cell[CellGroupData[{

Cell["Syntax Templates", "TemplatesSection",
 CellID->1872225408],

Cell[BoxData[""], "Template",
 CellLabel->"Additional Function Template",
 CellID->1562036412],

Cell[BoxData[""], "Template",
 CellLabel->"Arguments Pattern",
 CellID->158391909],

Cell[BoxData[""], "Template",
 CellLabel->"Local Variables",
 CellID->1360575930],

Cell[BoxData[""], "Template",
 CellLabel->"Color Equal Signs",
 CellID->793782254]
}, Closed]],

Cell[CellGroupData[{

Cell["Details", "DetailsSection",
 CellID->307771771],

Cell["XXXX", "Details",
 CellLabel->"Lead",
 CellID->670882175],

Cell["XXXX", "Details",
 CellLabel->"Developers",
 CellID->350963985],

Cell["XXXX", "Details",
 CellLabel->"Authors",
 CellID->8391405],

Cell["XXXX", "Details",
 CellLabel->"Feature Name",
 CellID->3610269],

Cell["XXXX", "Details",
 CellLabel->"QA",
 CellID->401364205],

Cell["XXXX", "Details",
 CellLabel->"DA",
 CellID->350204745],

Cell["XXXX", "Details",
 CellLabel->"Docs",
 CellID->732958810],

Cell["XXXX", "Details",
 CellLabel->"Features Page Notes",
 CellID->222905350],

Cell["XXXX", "Details",
 CellLabel->"Comments",
 CellID->240026365]
}, Closed]],

Cell[CellGroupData[{

Cell["ExternalTransferC", "ObjectName",
 CellID->1224892054],

Cell[TextData[{
 Cell["      ", "ModInfo"],
 Cell[BoxData[
  RowBox[{
   ButtonBox["ExternalTransferC",
    BaseStyle->"Link",
    ButtonData->"paclet:TransferMatrixFormalism/ref/ExternalTransferC"], "[", 
   RowBox[{"\"\<\!\(\*
StyleBox[\"inPosDir\", \"TI\"]\)\>\"", ",", "\"\<\!\(\*
StyleBox[\"xPosDir\", \"TI\"]\)\>\"", ",", 
    SubscriptBox[
     StyleBox["SI", "TI"], 
     StyleBox[
      RowBox[{"v", "-", 
       RowBox[{"1", "/", "v"}]}], "TI"]], ",", 
    SubscriptBox[
     StyleBox["\[CapitalPhi]", "TR"], 
     StyleBox[
      RowBox[{"v", "-", 
       RowBox[{"1", "/", "v"}]}], "TI"]], ",", 
    SubscriptBox[
     StyleBox["SII", "TI"], 
     StyleBox[
      RowBox[{"v", "-", 
       RowBox[{"1", "/", "v"}]}], "TI"]]}], "]"}]], "InlineFormula"],
 "\[LineSeparator]calculates the external transfer coefficient for a wave \
generated and outgoing from intervace ",
 Cell[BoxData[
  StyleBox["v", "TI"]], "InlineFormula",
  ShowStringCharacters->False],
 " using the partial system transfer matrices ",
 Cell[BoxData[
  SubscriptBox[
   StyleBox["SI", "TI"], 
   StyleBox[
    RowBox[{"v", "-", 
     RowBox[{"1", "/", "v"}]}], "TI"]]], "InlineFormula"],
 " and ",
 Cell[BoxData[
  SubscriptBox[
   StyleBox["SII", "TI"], 
   StyleBox[
    RowBox[{"v", "-", 
     RowBox[{"1", "/", "v"}]}], "TI"]]], "InlineFormula"],
 " and the layer phase matrix ",
 Cell[BoxData[
  SubscriptBox[
   StyleBox["\[CapitalPhi]", "TR"], 
   StyleBox[
    RowBox[{"v", "-", 
     RowBox[{"1", "/", "v"}]}], "TI"]]], "InlineFormula"],
 ". ",
 ButtonBox["Eqs. 41-44",
  BaseStyle->"Link",
  ButtonData->
   "paclet:TransferMatrixFormalism/ReferencePages/Symbols/ExternalTransferC#\
148884605"],
 "."
}], "Usage",
 CellChangeTimes->{{3.5982283399961953`*^9, 3.5982284913672614`*^9}, {
   3.5982294535153513`*^9, 3.598229521532471*^9}, {3.598231089478427*^9, 
   3.5982311005232463`*^9}, {3.598231164422959*^9, 3.5982312211602583`*^9}, 
   3.5982941285929346`*^9, {3.5986371380847545`*^9, 3.5986371389647555`*^9}}],

Cell[TextData[{
 Cell[BoxData[
  RowBox[{"\"\<\>", 
   StyleBox["inPosDir", "TI"], "\"\<\>"}]], "InlineFormula",
  ShowStringCharacters->False],
 " specifies the position and directionality of the generated field when it \
is still internal and immediately adjacent to the interface.  Values are \
either ",
 Cell[BoxData[
  RowBox[{
   RowBox[{"\"\<\>", 
    StyleBox["v", "TI"], "-", "'"}], "\"\<\>"}]], "InlineFormula",
  ShowStringCharacters->False],
 " for the field generated and outgoing from the bottom side of the interface \
into layer v, or or ",
 Cell[BoxData[
  RowBox[{
   RowBox[{"\"\<\>", 
    StyleBox["v", "TI"], "+"}], "\"\<\>"}]], "InlineFormula",
  ShowStringCharacters->False],
 " for the field generated and outgoing from the top side of the interface \
into layer ",
 Cell[BoxData[
  RowBox[{
   StyleBox["v", "TI"], "-", "1"}]], "InlineFormula",
  ShowStringCharacters->False],
 "."
}], "Notes",
 CellChangeTimes->{
  3.5982282350674105`*^9, {3.598228776484763*^9, 3.59822884314568*^9}, {
   3.5982288758901377`*^9, 3.598229167603649*^9}, {3.598231122971686*^9, 
   3.598231122971686*^9}},
 CellID->1067943069],

Cell[TextData[{
 "When ",
 Cell[BoxData[
  RowBox[{"\"\<\>", 
   StyleBox["inPosDir", "TI"], "\"\<\>"}]], "InlineFormula",
  ShowStringCharacters->False],
 " =",
 Cell[BoxData[
  RowBox[{
   RowBox[{"\"\<\>", 
    StyleBox["v", "TI"], "+"}], "\"\<\>"}]], "InlineFormula",
  ShowStringCharacters->False],
 ", the arguments should be for layer ",
 Cell[BoxData[
  RowBox[{
   StyleBox["v", "TI"], "-", "1"}]], "InlineFormula",
  ShowStringCharacters->False],
 " (i.e ",
 Cell[BoxData[
  RowBox[{
   SubscriptBox[
    StyleBox["SI", "TI"], 
    RowBox[{"v", "-", "1"}]], ",", 
   SubscriptBox[
    StyleBox["\[CapitalPhi]", "TR"], 
    StyleBox[
     RowBox[{"v", "-", "1"}], "TI"]], ",", 
   SubscriptBox[
    StyleBox["SII", "TI"], 
    RowBox[{"v", "-", "1"}]]}]], "InlineFormula"],
 ") and when it it is ",
 Cell[BoxData[
  RowBox[{
   RowBox[{"\"\<\>", 
    StyleBox["v", "TI"], "-", "'"}], "\"\<\>"}]], "InlineFormula",
  ShowStringCharacters->False],
 " the arguments should be for layer ",
 Cell[BoxData[
  StyleBox["v", "TI"]], "InlineFormula",
  ShowStringCharacters->False],
 "."
}], "Notes",
 CellChangeTimes->{
  3.5982282350674105`*^9, {3.598228776484763*^9, 3.59822884314568*^9}, {
   3.5982288758901377`*^9, 3.598228878354942*^9}, {3.598229461627366*^9, 
   3.5982294647161713`*^9}, {3.5982308925396805`*^9, 
   3.5982310823024144`*^9}, {3.5982311267780924`*^9, 
   3.5982311376533117`*^9}, {3.5982320581255274`*^9, 
   3.5982320649905396`*^9}, {3.598232222621217*^9, 3.598232222621217*^9}},
 CellID->21482704],

Cell[TextData[{
 "In this application ",
 Cell[BoxData[
  SubscriptBox[
   StyleBox["SI", "TI"], 
   StyleBox["v", "TI"]]], "InlineFormula"],
 " is implented as ",
 Cell[BoxData[
  ButtonBox["AbelesSIv",
   BaseStyle->"Link",
   ButtonData->"paclet:TransferMatrixFormalism/ref/AbelesSIv"]], 
  "InlineFormula",
  ShowStringCharacters->False],
 ", ",
 Cell[BoxData[
  SubscriptBox[
   StyleBox["SII", "TI"], 
   StyleBox["v", "TI"]]], "InlineFormula"],
 " is calculated from ",
 Cell[BoxData[
  ButtonBox["AbelesSIIv",
   BaseStyle->"Link",
   ButtonData->"paclet:TransferMatrixFormalism/ref/AbelesSIIv"]], 
  "InlineFormula",
  ShowStringCharacters->False],
 ", and ",
 Cell[BoxData[
  SubscriptBox[
   StyleBox["\[CapitalPhi]", "TR"], 
   StyleBox["v", "TI"]]], "InlineFormula"],
 " is calculated using ",
 Cell[BoxData[
  ButtonBox["PhaseMv",
   BaseStyle->"Link",
   ButtonData->"paclet:TransferMatrixFormalism/ref/PhaseMv"]], "InlineFormula",
  ShowStringCharacters->False],
 "."
}], "Notes",
 CellChangeTimes->{
  3.5982282350674105`*^9, {3.598228776484763*^9, 3.59822884314568*^9}, {
   3.5982288758901377`*^9, 3.598228878354942*^9}, {3.598229461627366*^9, 
   3.5982294647161713`*^9}, {3.5982308925396805`*^9, 
   3.5982310823024144`*^9}, {3.5982311267780924`*^9, 
   3.5982311376533117`*^9}, {3.5982320581255274`*^9, 
   3.5982320649905396`*^9}, {3.598232222621217*^9, 3.5982323920415144`*^9}},
 CellID->157359],

Cell[TextData[{
 Cell[BoxData[
  RowBox[{"\"\<\>", 
   StyleBox["xPosDir", "TI"], "\"\<\>"}]], "InlineFormula",
  ShowStringCharacters->False],
 " specifies to which side of the system the calculation for transfer of the \
internally generated field will be performed.  For the top side, the external \
postion and directionality is ",
 Cell[BoxData[
  RowBox[{
   RowBox[{"\"\<\>", "0", "+"}], "\"\<\>"}]], "InlineFormula",
  ShowStringCharacters->False],
 ", and for the bottom side of the system it is specified by ",
 Cell[BoxData[
  RowBox[{
   RowBox[{"\"\<\>", 
    StyleBox["kp1", "TI"], "-", "'"}], "\"\<\>"}]], "InlineFormula",
  ShowStringCharacters->False],
 "."
}], "Notes",
 CellChangeTimes->{
  3.5982282350674105`*^9, {3.598228776484763*^9, 3.59822884314568*^9}, {
   3.5982288758901377`*^9, 3.598228878354942*^9}, {3.598229181550073*^9, 
   3.5982293885226374`*^9}, 3.5982941922870245`*^9},
 CellID->675218361],

Cell[TextData[{
 "There are a total of four external transfer coefficients with Eqs in ",
 ButtonBox["reference below",
  BaseStyle->"Link",
  ButtonData->
   "paclet:TransferMatrixFormalism/ReferencePages/Symbols/ExternalTransferC#\
148884605"],
 ":"
}], "Notes",
 CellChangeTimes->{{3.5982942424790945`*^9, 3.5982942701631346`*^9}, {
  3.5983752929897194`*^9, 3.598375322583971*^9}},
 CellID->282783979],

Cell[BoxData[GridBox[{
   {Cell["      ", "ModInfo"], 
    ButtonBox[
     RowBox[{"Eq", ".", " ", "41"}],
     BaseStyle->"Link",
     ButtonData->
      "paclet:TransferMatrixFormalism/ReferencePages/Symbols/\
ExternalTransferC#148884605"], 
    RowBox[{
     SubsuperscriptBox["\[Tau]", 
      RowBox[{"v", ",", "0"}], 
      RowBox[{"-", "'"}]], "=", 
     FractionBox[
      SubscriptBox[
       OverscriptBox["\[CapitalEpsilon]", "\[ShortRightArrow]"], "0"], 
      SubsuperscriptBox["\[CurlyEpsilon]", "v", 
       RowBox[{"-", "'"}]]]}], Cell[TextData[Cell[BoxData[
     RowBox[{
      ButtonBox["ExternalTransferC",
       BaseStyle->"Link",
       ButtonData->"paclet:TransferMatrixFormalism/ref/ExternalTransferC"], 
      "[", 
      RowBox[{"\"\<\!\(\*
StyleBox[\"v\", \"TI\"]\)\!\(\*
StyleBox[\"-\", \"TI\"]\)\!\(\*
StyleBox[\"'\", \"TI\"]\)\>\"", ",", "\"\<\!\(\*
StyleBox[\"0\", \"TI\"]\)\!\(\*
StyleBox[\"+\", \"TI\"]\)\>\"", ",", 
       SubscriptBox[
        StyleBox["SI", "TI"], 
        StyleBox["v", "TI"]], ",", 
       SubscriptBox[
        StyleBox["\[CapitalPhi]", "TR"], 
        StyleBox["v", "TI"]], ",", 
       SubscriptBox[
        StyleBox["SII", "TI"], 
        StyleBox["v", "TI"]]}], "]"}]], "InlineFormula"]], "TableText"]},
   {Cell["      ", "ModInfo"], 
    ButtonBox[
     RowBox[{"Eq", ".", " ", "42"}],
     BaseStyle->"Link",
     ButtonData->
      "paclet:TransferMatrixFormalism/ReferencePages/Symbols/\
ExternalTransferC#148884605"], 
    FormBox[
     FormBox[
      RowBox[{
       SubsuperscriptBox["\[Tau]", 
        RowBox[{"v", ",", "0"}], "+"], "=", 
       FractionBox[
        SubscriptBox[
         OverscriptBox["\[CapitalEpsilon]", "\[ShortRightArrow]"], "0"], 
        SubsuperscriptBox["\[CurlyEpsilon]", "v", "+"]]}],
      TraditionalForm],
     TraditionalForm], Cell[TextData[Cell[BoxData[
     RowBox[{
      ButtonBox["ExternalTransferC",
       BaseStyle->"Link",
       ButtonData->"paclet:TransferMatrixFormalism/ref/ExternalTransferC"], 
      "[", 
      RowBox[{"\"\<\!\(\*
StyleBox[\"v\", \"TI\"]\)\!\(\*
StyleBox[\"+\", \"TI\"]\)\>\"", ",", "\"\<\!\(\*
StyleBox[\"0\", \"TI\"]\)\!\(\*
StyleBox[\"+\", \"TI\"]\)\>\"", ",", 
       SubscriptBox[
        StyleBox["SI", "TI"], 
        StyleBox[
         RowBox[{"v", "-", "1"}], "TI"]], ",", 
       SubscriptBox[
        StyleBox["\[CapitalPhi]", "TR"], 
        StyleBox[
         RowBox[{"v", "-", "1"}], "TI"]], ",", 
       SubscriptBox[
        StyleBox["SII", "TI"], 
        StyleBox[
         RowBox[{"v", "-", "1"}], "TI"]]}], "]"}]], "InlineFormula"]], 
     "TableText"]},
   {Cell["      ", "ModInfo"], 
    ButtonBox[
     RowBox[{"Eq", ".", " ", "43"}],
     BaseStyle->"Link",
     ButtonData->
      "paclet:TransferMatrixFormalism/ReferencePages/Symbols/\
ExternalTransferC#148884605"], 
    FormBox[
     FormBox[
      RowBox[{
       SubsuperscriptBox["\[Tau]", 
        RowBox[{"v", ",", 
         RowBox[{"k", "+", "1"}]}], "+"], "=", 
       FractionBox[
        SubscriptBox[
         OverscriptBox["\[CapitalEpsilon]", "\[ShortRightArrow]"], 
         RowBox[{"k", "+", "1"}]], 
        SubsuperscriptBox["\[CurlyEpsilon]", "v", "+"]]}],
      TraditionalForm],
     TraditionalForm], Cell[TextData[Cell[BoxData[
     RowBox[{
      ButtonBox["ExternalTransferC",
       BaseStyle->"Link",
       ButtonData->"paclet:TransferMatrixFormalism/ref/ExternalTransferC"], 
      "[", 
      RowBox[{"\"\<\!\(\*
StyleBox[\"v\", \"TI\"]\)\!\(\*
StyleBox[\"+\", \"TI\"]\)\>\"", ",", "\"\<\!\(\*
StyleBox[\"kp1\", \"TI\"]\)\!\(\*
StyleBox[\"-\", \"TI\"]\)\!\(\*
StyleBox[\"'\", \"TI\"]\)\>\"", ",", 
       SubscriptBox[
        StyleBox["SI", "TI"], 
        StyleBox[
         RowBox[{"v", "-", "1"}], "TI"]], ",", 
       SubscriptBox[
        StyleBox["\[CapitalPhi]", "TR"], 
        StyleBox[
         RowBox[{"v", "-", "1"}], "TI"]], ",", 
       SubscriptBox[
        StyleBox["SII", "TI"], 
        StyleBox[
         RowBox[{"v", "-", "1"}], "TI"]]}], "]"}]], "InlineFormula"]], 
     "TableText"]},
   {Cell["      ", "ModInfo"], 
    ButtonBox[
     RowBox[{"Eq", ".", " ", "44"}],
     BaseStyle->"Link",
     ButtonData->
      "paclet:TransferMatrixFormalism/ReferencePages/Symbols/\
ExternalTransferC#148884605"], 
    FormBox[
     FormBox[
      RowBox[{
       SubsuperscriptBox["\[Tau]", 
        RowBox[{"v", ",", 
         RowBox[{"k", "+", "1"}]}], 
        RowBox[{"-", "'"}]], "=", 
       FractionBox[
        SubscriptBox[
         OverscriptBox["\[CapitalEpsilon]", "\[ShortRightArrow]"], 
         RowBox[{"k", "+", "1"}]], 
        SubsuperscriptBox["\[CurlyEpsilon]", "v", 
         RowBox[{"-", "'"}]]]}],
      TraditionalForm],
     TraditionalForm], Cell[TextData[Cell[BoxData[
     RowBox[{
      ButtonBox["ExternalTransferC",
       BaseStyle->"Link",
       ButtonData->"paclet:TransferMatrixFormalism/ref/ExternalTransferC"], 
      "[", 
      RowBox[{"\"\<\!\(\*
StyleBox[\"v\", \"TI\"]\)\!\(\*
StyleBox[\"-\", \"TI\"]\)\!\(\*
StyleBox[\"'\", \"TI\"]\)\>\"", ",", "\"\<\!\(\*
StyleBox[\"kp1\", \"TI\"]\)\!\(\*
StyleBox[\"-\", \"TI\"]\)\!\(\*
StyleBox[\"'\", \"TI\"]\)\>\"", ",", 
       SubscriptBox[
        StyleBox["SI", "TI"], 
        StyleBox["v", "TI"]], ",", 
       SubscriptBox[
        StyleBox["\[CapitalPhi]", "TR"], 
        StyleBox["v", "TI"]], ",", 
       SubscriptBox[
        StyleBox["SII", "TI"], 
        StyleBox["v", "TI"]]}], "]"}]], "InlineFormula"]], "TableText"]}
  }]], "3ColumnTableMod",
 CellChangeTimes->{{3.598374365059888*^9, 3.5983744147157755`*^9}, 
   3.5983747811604195`*^9, {3.5983748890532093`*^9, 3.5983750001420045`*^9}, {
   3.598375036132268*^9, 3.598375178094517*^9}, {3.598375346467613*^9, 
   3.598375393829296*^9}},
 CellID->828703190]
}, Open  ]],

Cell[CellGroupData[{

Cell["Tutorials", "TutorialsSection",
 CellID->250839057],

Cell[TextData[ButtonBox["Nonlinear Spectroscopy of Thin Film Systems",
 BaseStyle->"Link",
 ButtonData->
  "paclet:ThinFilmNLS/tutorial/Nonlinear Spectroscopy of Thin Film \
Systems"]], "Tutorials",
 CellChangeTimes->{{3.597778379480859*^9, 3.5977783986376925`*^9}, {
  3.6000111315791473`*^9, 3.6000111315981483`*^9}},
 CellID->40297743],

Cell[TextData[ButtonBox["Methods to Compute Input Transfer Coefficients",
 BaseStyle->"Link",
 ButtonData->
  "paclet:ThinFilmNLS/tutorial/Methods to Compute Input Transfer \
Coefficients"]], "Tutorials",
 CellChangeTimes->{{3.5983754400219774`*^9, 3.598375477337243*^9}, {
  3.6000112394173155`*^9, 3.6000112394373164`*^9}},
 CellID->341631938]
}, Open  ]],

Cell[CellGroupData[{

Cell["Related Demonstrations", "RelatedDemonstrationsSection",
 CellID->1268215905],

Cell["XXXX", "RelatedDemonstrations",
 CellID->1129518860]
}, Open  ]],

Cell[CellGroupData[{

Cell["Related Links", "RelatedLinksSection",
 CellID->1584193535],

Cell[TextData[ButtonBox["D. B. O\[CloseCurlyQuote]Brien and A. M. Massari, \
\"Modeling multilayer thin film interference effects in interface-specific \
coherent nonlinear optical spectroscopies,\" J. Opt. Soc. Am. B 30, 1503 \
(2013).",
 BaseStyle->"Hyperlink",
 ButtonData->{
   URL["http://dx.doi.org/10.1364/JOSAB.30.001503"], None}]], "RelatedLinks",
 CellChangeTimes->{{3.597765920073867*^9, 3.5977659201674676`*^9}},
 CellID->148884605]
}, Open  ]],

Cell[CellGroupData[{

Cell["See Also", "SeeAlsoSection",
 CellID->1255426704],

Cell[TextData[{
 Cell[BoxData[
  ButtonBox["InternalTransferC",
   BaseStyle->"Link",
   ButtonData->"paclet:TransferMatrixFormalism/ref/InternalTransferC"]], 
  "InlineFormula"],
 " \[EmptyVerySmallSquare] ",
 Cell[BoxData[
  ButtonBox["OutputTransferC",
   BaseStyle->"Link",
   ButtonData->"paclet:TransferMatrixFormalism/ref/OutputTransferC"]], 
  "InlineFormula"],
 " \[EmptyVerySmallSquare] ",
 Cell[BoxData[
  ButtonBox["InputTransferC",
   BaseStyle->"Link",
   ButtonData->"paclet:TransferMatrixFormalism/ref/InputTransferC"]], 
  "InlineFormula"]
}], "SeeAlso",
 CellChangeTimes->{{3.598375406076318*^9, 3.598375424031949*^9}},
 CellID->929782353]
}, Open  ]],

Cell[CellGroupData[{

Cell["More About", "MoreAboutSection",
 CellID->38303248],

Cell[TextData[ButtonBox["Transfer Matrix Formalism",
 BaseStyle->"Link",
 ButtonData->
  "paclet:TransferMatrixFormalism/guide/Transfer Matrix Formalism"]], \
"MoreAbout",
 CellChangeTimes->{{3.5986370793036723`*^9, 3.5986370931546917`*^9}},
 CellID->1665078683]
}, Open  ]],

Cell[BoxData[
 InterpretationBox[GridBox[{
    {
     StyleBox["Examples", "PrimaryExamplesSection"], 
     ButtonBox[
      RowBox[{
       RowBox[{"More", " ", "Examples"}], " ", "\[RightTriangle]"}],
      BaseStyle->"ExtendedExamplesLink",
      ButtonData:>"ExtendedExamples"]}
   }],
  $Line = 0; Null]], "PrimaryExamplesSection",
 CellID->880084151],

Cell[CellGroupData[{

Cell["More Examples", "ExtendedExamplesSection",
 CellTags->"ExtendedExamples",
 CellID->1854448968],

Cell[BoxData[
 InterpretationBox[Cell["Scope", "ExampleSection"],
  $Line = 0; Null]], "ExampleSection",
 CellID->1293636265],

Cell[BoxData[
 InterpretationBox[Cell["Generalizations & Extensions", "ExampleSection"],
  $Line = 0; Null]], "ExampleSection",
 CellID->1020263627],

Cell[CellGroupData[{

Cell[BoxData[
 InterpretationBox[Cell["Options", "ExampleSection"],
  $Line = 0; Null]], "ExampleSection",
 CellID->2061341341],

Cell[BoxData[
 InterpretationBox[Cell["XXXX", "ExampleSubsection"],
  $Line = 0; Null]], "ExampleSubsection",
 CellID->1757724783],

Cell[BoxData[
 InterpretationBox[Cell["XXXX", "ExampleSubsection"],
  $Line = 0; Null]], "ExampleSubsection",
 CellID->1295379749]
}, Closed]],

Cell[BoxData[
 InterpretationBox[Cell["Applications", "ExampleSection"],
  $Line = 0; Null]], "ExampleSection",
 CellID->258228157],

Cell[BoxData[
 InterpretationBox[Cell["Properties & Relations", "ExampleSection"],
  $Line = 0; Null]], "ExampleSection",
 CellID->2123667759],

Cell[BoxData[
 InterpretationBox[Cell["Possible Issues", "ExampleSection"],
  $Line = 0; Null]], "ExampleSection",
 CellID->1305812373],

Cell[BoxData[
 InterpretationBox[Cell["Interactive Examples", "ExampleSection"],
  $Line = 0; Null]], "ExampleSection",
 CellID->1653164318],

Cell[BoxData[
 InterpretationBox[Cell["Neat Examples", "ExampleSection"],
  $Line = 0; Null]], "ExampleSection",
 CellID->589267740]
}, Open  ]]
},
WindowSize->{700, 770},
WindowMargins->{{Automatic, 471}, {60, Automatic}},
CellContext->"Global`",
FrontEndVersion->"9.0 for Microsoft Windows (64-bit) (January 25, 2013)",
StyleDefinitions->FrontEnd`FileName[{"Wolfram"}, "FunctionPageStyles.nb", 
  CharacterEncoding -> "WindowsANSI"]
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{
 "ExtendedExamples"->{
  Cell[20029, 680, 100, 2, 53, "ExtendedExamplesSection",
   CellTags->"ExtendedExamples",
   CellID->1854448968]}
 }
*)
(*CellTagsIndex
CellTagsIndex->{
 {"ExtendedExamples", 21958, 750}
 }
*)
(*NotebookFileOutline
Notebook[{
Cell[557, 20, 324, 14, 22, "History",
 CellID->1247902091],
Cell[CellGroupData[{
Cell[906, 38, 68, 1, 27, "CategorizationSection",
 CellID->1122911449],
Cell[977, 41, 79, 2, 31, "Categorization",
 CellID->686433507],
Cell[1059, 45, 147, 3, 31, "Categorization",
 CellID->27683017],
Cell[1209, 50, 92, 2, 31, "Categorization",
 CellID->24896869],
Cell[1304, 54, 151, 3, 31, "Categorization",
 CellID->33821954]
}, Open  ]],
Cell[CellGroupData[{
Cell[1492, 62, 55, 1, 27, "KeywordsSection",
 CellID->477174294],
Cell[1550, 65, 176, 3, 17, "Keywords",
 CellID->1164421360],
Cell[1729, 70, 179, 3, 17, "Keywords",
 CellID->532982649],
Cell[1911, 75, 169, 3, 17, "Keywords",
 CellID->156031910],
Cell[2083, 80, 112, 2, 17, "Keywords",
 CellID->3341854],
Cell[2198, 84, 114, 2, 17, "Keywords",
 CellID->229678675],
Cell[2315, 88, 114, 2, 17, "Keywords",
 CellID->660767820],
Cell[2432, 92, 112, 2, 17, "Keywords",
 CellID->617360883]
}, Open  ]],
Cell[CellGroupData[{
Cell[2581, 99, 65, 1, 27, "TemplatesSection",
 CellID->1872225408],
Cell[2649, 102, 94, 2, 70, "Template",
 CellID->1562036412],
Cell[2746, 106, 82, 2, 70, "Template",
 CellID->158391909],
Cell[2831, 110, 81, 2, 70, "Template",
 CellID->1360575930],
Cell[2915, 114, 82, 2, 70, "Template",
 CellID->793782254]
}, Closed]],
Cell[CellGroupData[{
Cell[3034, 121, 53, 1, 17, "DetailsSection",
 CellID->307771771],
Cell[3090, 124, 63, 2, 70, "Details",
 CellID->670882175],
Cell[3156, 128, 69, 2, 70, "Details",
 CellID->350963985],
Cell[3228, 132, 64, 2, 70, "Details",
 CellID->8391405],
Cell[3295, 136, 69, 2, 70, "Details",
 CellID->3610269],
Cell[3367, 140, 61, 2, 70, "Details",
 CellID->401364205],
Cell[3431, 144, 61, 2, 70, "Details",
 CellID->350204745],
Cell[3495, 148, 63, 2, 70, "Details",
 CellID->732958810],
Cell[3561, 152, 78, 2, 70, "Details",
 CellID->222905350],
Cell[3642, 156, 67, 2, 70, "Details",
 CellID->240026365]
}, Closed]],
Cell[CellGroupData[{
Cell[3746, 163, 60, 1, 62, "ObjectName",
 CellID->1224892054],
Cell[3809, 166, 2006, 62, 109, "Usage"],
Cell[5818, 230, 1135, 32, 73, "Notes",
 CellID->1067943069],
Cell[6956, 264, 1523, 49, 41, "Notes",
 CellID->21482704],
Cell[8482, 315, 1419, 45, 41, "Notes",
 CellID->157359],
Cell[9904, 362, 927, 24, 57, "Notes",
 CellID->675218361],
Cell[10834, 388, 405, 11, 23, "Notes",
 CellID->282783979],
Cell[11242, 401, 5767, 170, 194, "3ColumnTableMod",
 CellID->828703190]
}, Open  ]],
Cell[CellGroupData[{
Cell[17046, 576, 57, 1, 43, "TutorialsSection",
 CellID->250839057],
Cell[17106, 579, 338, 7, 16, "Tutorials",
 CellID->40297743],
Cell[17447, 588, 345, 7, 16, "Tutorials",
 CellID->341631938]
}, Open  ]],
Cell[CellGroupData[{
Cell[17829, 600, 83, 1, 30, "RelatedDemonstrationsSection",
 CellID->1268215905],
Cell[17915, 603, 58, 1, 16, "RelatedDemonstrations",
 CellID->1129518860]
}, Open  ]],
Cell[CellGroupData[{
Cell[18010, 609, 65, 1, 30, "RelatedLinksSection",
 CellID->1584193535],
Cell[18078, 612, 444, 8, 29, "RelatedLinks",
 CellID->148884605]
}, Open  ]],
Cell[CellGroupData[{
Cell[18559, 625, 55, 1, 30, "SeeAlsoSection",
 CellID->1255426704],
Cell[18617, 628, 657, 20, 19, "SeeAlso",
 CellID->929782353]
}, Open  ]],
Cell[CellGroupData[{
Cell[19311, 653, 57, 1, 30, "MoreAboutSection",
 CellID->38303248],
Cell[19371, 656, 262, 6, 16, "MoreAbout",
 CellID->1665078683]
}, Open  ]],
Cell[19648, 665, 356, 11, 68, "PrimaryExamplesSection",
 CellID->880084151],
Cell[CellGroupData[{
Cell[20029, 680, 100, 2, 53, "ExtendedExamplesSection",
 CellTags->"ExtendedExamples",
 CellID->1854448968],
Cell[20132, 684, 125, 3, 30, "ExampleSection",
 CellID->1293636265],
Cell[20260, 689, 148, 3, 18, "ExampleSection",
 CellID->1020263627],
Cell[CellGroupData[{
Cell[20433, 696, 127, 3, 18, "ExampleSection",
 CellID->2061341341],
Cell[20563, 701, 130, 3, 70, "ExampleSubsection",
 CellID->1757724783],
Cell[20696, 706, 130, 3, 70, "ExampleSubsection",
 CellID->1295379749]
}, Closed]],
Cell[20841, 712, 131, 3, 18, "ExampleSection",
 CellID->258228157],
Cell[20975, 717, 142, 3, 18, "ExampleSection",
 CellID->2123667759],
Cell[21120, 722, 135, 3, 18, "ExampleSection",
 CellID->1305812373],
Cell[21258, 727, 140, 3, 18, "ExampleSection",
 CellID->1653164318],
Cell[21401, 732, 132, 3, 18, "ExampleSection",
 CellID->589267740]
}, Open  ]]
}
]
*)

(* End of internal cache information *)
